home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 November
/
64er_Magazin_91-11_1991_Markt__Technik_de_Side_B.d64
/
trainer last nin
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
591b
|
18 lines
100 clr:dimts$(5):dimb1(5):dimb2(5):dimf(5):tr=-1:rem -1:on, 0:off
110 ts$(1)="17 02":b1(1)=194:b2(1)=15:f(1)=1
120 ts$(2)="17 17":b1(2)=247:b2(2)=12:f(2)=2
130 ts$(3)="07 05":b1(3)=96:b2(3)=14:f(3)=2
140 ts$(4)="17 17":b1(4)=139:b2(4)=15:f(4)=3
150 ts$(5)="07 05":b1(5)=232:b2(5)=12:f(5)=3
160 fori=1to5
170 iff<>f(i)thengosub250
180 open2,8,15:open1,8,2,"#"
190 print#2,"u1 2 0 "ts$(i)
200 print#2,"b-p 2 187"
210 iftrthenprint#1,chr$(249)chr$(76)chr$(138)chr$(b1(i))chr$(b2(i));
220 ifnottrthenprint#1,chr$(186)chr$(3)chr$(237)chr$(10)chr$(148);
230 print#2,"u2 2 0 "ts$(i)
240 f=f(i):close2:close1:next:end
250 print"insert disk - side"f(i)chr$(13)"press any key !"
260 poke198,0:wait198,1:poke198,0:return